﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>

<%
	dim rs,sql
dim urls,sid2
urls=Request.QueryString("url")
if urls="" then urls="index.asp"
select case v
case "0"
we0="<br/>"
hr="--------------<br/>"
%>
<card title="重设书签"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>重设书签</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select

		if sid="Null" then Response.Redirect "/login.asp?sid="&sidd&"&url=/user/usermima.asp"
		qingtian.info
%>
<%=dao%><a href="/bbs/index.asp?sid=<%=sidd%>">论坛</a>&gt;<a href="space.asp?sid=<%=sidd%>"><%=qingtian.utf8(session("username"))%>的空间</a><br/>重设书签<%=we0%><%=hr%>
<%
                set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select [id] FROM qingtian_user where [sid]='"&qingtian.formatsid(sid)&"'"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
			sid2=qingtian.RunStr
			sid2=md5(rs("id")&"id"&sid2)
							sid2=ucase("3gqt"&md5(strReverse(sid2)))
                                sidd=sid2&"-"&v&"-"&fv

		end if
		rs.Close
		Set rs = Nothing
conn.execute("update [qingtian_user] set [sid]='"&qingtian.formatsid(sid2)&"' where [sid]='"&qingtian.formatsid(sid)&"'")
sid=sid2
response.cookies("sid")=sid2
%>
<%=we%>你已成功重设书签!<%=we0%>
<%=hr%><%=sou%><a href="<%=qingtian.backurl(urls)%>">返回来源页</a><br/><%=we0%>
		<%=sou%><a href="UserInfo.Asp?sid=<%=sidd%>">我的详细资料</a><%=we0%>
   <%
End Function
%>
